Sub prueba_Close()
    Dim fichero1, fichero2 As String
    Dim texto1, texto2 As String
    texto1 = "Texto1"
    texto2 = "Texto2"
    fichero1 = "C:\Temp\Notas1.txt"
    fichero2 = "C:\Temp\Notas2.txt"
    Open fichero1 For Output As #1
    Open fichero2 For Output As #2
    ' Graba datos en fichero.
    Print #1, texto1
    Print #2, texto2
    ' Cierra ficheros.
    Close #1, #2
End Sub
